GLISS 0 0 33; 
P2 .24;
P3 "P7"; <PICKS UP PREVIOUS VALUE
P4 2000;
P5 FUNC/10/11//12/REP 4 8/ 1; <4-NOTE PHRASES, LAST NOTE SOST.
P6 F4; <TONE OF GLISS.
P7 NOTES/D4/E/F/G/ F/E/D/C; <UP AND DOWN C→G→C
P8 P2;
P9 F5; <SHAPE OF GLISS.
END;

INSERT -99;
P7←C ;<INITIALIZES P7 SO P3 FINDS THE RIGHT NOTE.

DUMMY  INVIS 0 0 33;
P2 P2;
P3 "SEG(F5); 0 1"; <F5 ALWAYS STARTS AT ZERO
P4 0;  < AMPL. OF 2ND STEP IS ALWAYS 0
P5 MOVE/7.2  99 1;  < 2ND STEP MOVES FROM 99 TO 1.
P6 1; < AMPL OF LAST STEP
P7 100;  < LAST STEP NUM.
END;

DUMMY 2 33;
P6 0; < NO GLISS ON LAST NOTE!
END;
TOOT 0 10;
P2 1 .1 2;
P3 1 C4 C7;
P4 1000;
P5 F1;
P6 F3;
END;
RUN;
COMMENT ⊗   VALID 00003 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		SUBROUTINE SUBR
C00003 00003		SUBROUTINE SUBR
C00005 ENDMK
C⊗;